home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Symbols / s-subtract-range < prev    next >
Lisp/Scheme  |  1998-08-11  |  508b  |  22 lines
  1. s-subtract-range range pattern
  2.  
  3. 0-based 
  4.  
  5. This function subtracts items within a given range and the output is returned. 
  6.  
  7. (setq sym1 (g-cluster .23 's 0 0 0 7))
  8. (setq sym2 (g-cluster .23 's 0 0 '(0 1 3 6) '(6 7 8 6)))
  9.  
  10. (s-subtract-range '(3 5) sym1)
  11. => (a b c f g)
  12.  
  13. (setq range
  14.       (pick-rnd1 .23 :content 2
  15.                  (g-integer 0 (l-count :all :content sym2))))
  16. => ((2 6) (1 6) (0 5) (5 2))
  17.  
  18. internally to: ((2 6) (1 6) (0 5) (2 5))
  19.  
  20. (s-subtract-range range sym2)
  21. => ((a b) (b h) (i j k) (g h l))
  22.